home *** CD-ROM | disk | FTP | other *** search
| Emacs Compiled Lisp | 1998-05-21 | 3.7 KB |
open in: 
MacOS 8.1
|
Win98
|
DOS
view JSON data
|
view as text
This file was processed as: Emacs Compiled Lisp
(other/emacsCompiledLisp).
This format is not currently supported by dexvert.
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 1%
| dexvert
| Emacs Compiled Lisp (other/emacsCompiledLisp)
| magic
| Unsupported |
| 100%
| file
| Emacs/XEmacs v20 byte-compiled Lisp data
| default
| |
| 99%
| file
| data
| default
| |
| 100%
| TrID
| Emacs/XEmacs byte-compiled Lisp (generic)
| default
|
|
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 14 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 6a 75 73 74 69 6e 62 |piled by| justinb|
|00000020| 40 65 62 6f 6e 79 2e 63 | 72 61 79 2e 63 6f 6d 20 |@ebony.c|ray.com |
|00000030| 6f 6e 20 4d 6f 6e 20 4d | 61 72 20 20 39 20 31 32 |on Mon M|ar 9 12|
|00000040| 3a 35 34 3a 33 36 20 31 | 39 39 38 0a 3b 3b 3b 20 |:54:36 1|998.;;; |
|00000050| 66 72 6f 6d 20 66 69 6c | 65 20 2f 68 6f 6d 65 2f |from fil|e /home/|
|00000060| 61 73 70 65 6e 30 37 2f | 6a 75 73 74 69 6e 62 2f |aspen07/|justinb/|
|00000070| 72 6f 6f 74 73 2f 66 72 | 65 65 77 61 72 65 2f 78 |roots/fr|eeware/x|
|00000080| 65 6d 61 63 73 2f 32 30 | 2e 33 2f 78 65 6d 61 63 |emacs/20|.3/xemac|
|00000090| 73 2d 32 30 2e 33 2f 6c | 69 73 70 2f 72 6d 61 69 |s-20.3/l|isp/rmai|
|000000a0| 6c 2f 72 6d 61 69 6c 2d | 6b 69 6c 6c 2e 65 6c 0a |l/rmail-|kill.el.|
|000000b0| 3b 3b 3b 20 65 6d 61 63 | 73 20 76 65 72 73 69 6f |;;; emac|s versio|
|000000c0| 6e 20 32 30 2e 34 20 22 | 45 6d 65 72 61 6c 64 22 |n 20.4 "|Emerald"|
|000000d0| 20 58 45 6d 61 63 73 20 | 20 4c 75 63 69 64 2e 0a | XEmacs | Lucid..|
|000000e0| 3b 3b 3b 20 62 79 74 65 | 63 6f 6d 70 20 76 65 72 |;;; byte|comp ver|
|000000f0| 73 69 6f 6e 20 32 2e 32 | 35 20 58 45 6d 61 63 73 |sion 2.2|5 XEmacs|
|00000100| 3b 20 32 32 2d 4d 61 72 | 2d 39 36 2e 0a 3b 3b 3b |; 22-Mar|-96..;;;|
|00000110| 20 6f 70 74 69 6d 69 7a | 61 74 69 6f 6e 20 69 73 | optimiz|ation is|
|00000120| 20 6f 6e 2e 0a 3b 3b 3b | 20 74 68 69 73 20 66 69 | on..;;;| this fi|
|00000130| 6c 65 20 75 73 65 73 20 | 6f 70 63 6f 64 65 73 20 |le uses |opcodes |
|00000140| 77 68 69 63 68 20 64 6f | 20 6e 6f 74 20 65 78 69 |which do| not exi|
|00000150| 73 74 20 69 6e 20 45 6d | 61 63 73 20 31 39 2e 0a |st in Em|acs 19..|
|00000160| 0a 28 69 66 20 28 61 6e | 64 20 28 62 6f 75 6e 64 |.(if (an|d (bound|
|00000170| 70 20 27 65 6d 61 63 73 | 2d 76 65 72 73 69 6f 6e |p 'emacs|-version|
|00000180| 29 0a 09 20 28 6f 72 20 | 28 61 6e 64 20 28 62 6f |).. (or |(and (bo|
|00000190| 75 6e 64 70 20 27 65 70 | 6f 63 68 3a 3a 76 65 72 |undp 'ep|och::ver|
|000001a0| 73 69 6f 6e 29 20 65 70 | 6f 63 68 3a 3a 76 65 72 |sion) ep|och::ver|
|000001b0| 73 69 6f 6e 29 0a 09 20 | 20 20 20 20 28 73 74 72 |sion).. | (str|
|000001c0| 69 6e 67 2d 6c 65 73 73 | 70 20 65 6d 61 63 73 2d |ing-less|p emacs-|
|000001d0| 76 65 72 73 69 6f 6e 20 | 22 32 30 22 29 29 29 0a |version |"20"))).|
|000001e0| 20 20 20 20 28 65 72 72 | 6f 72 20 22 60 72 6d 61 | (err|or "`rma|
|000001f0| 69 6c 2d 6b 69 6c 6c 2e | 65 6c 27 20 77 61 73 20 |il-kill.|el' was |
|00000200| 63 6f 6d 70 69 6c 65 64 | 20 66 6f 72 20 45 6d 61 |compiled| for Ema|
|00000210| 63 73 20 32 30 22 29 29 | 0a 0a 28 6f 72 20 28 62 |cs 20"))|..(or (b|
|00000220| 6f 75 6e 64 70 20 27 63 | 75 72 72 65 6e 74 2d 6c |oundp 'c|urrent-l|
|00000230| 6f 61 64 2d 6c 69 73 74 | 29 20 28 73 65 74 71 20 |oad-list|) (setq |
|00000240| 63 75 72 72 65 6e 74 2d | 6c 6f 61 64 2d 6c 69 73 |current-|load-lis|
|00000250| 74 20 6e 69 6c 29 29 0a | 0a 0a 28 62 79 74 65 2d |t nil)).|..(byte-|
|00000260| 63 6f 64 65 20 22 c0 11 | c2 13 c0 87 22 20 5b 72 |code "..|...." [r|
|00000270| 6d 61 69 6c 2d 6d 61 79 | 62 65 2d 65 78 65 63 75 |mail-may|be-execu|
|00000280| 74 65 2d 6d 65 73 73 61 | 67 65 20 72 6d 61 69 6c |te-messa|ge rmail|
|00000290| 2d 6d 65 73 73 61 67 65 | 2d 66 69 6c 74 65 72 20 |-message|-filter |
|000002a0| 28 28 6c 61 6d 62 64 61 | 20 6e 69 6c 20 28 64 65 |((lambda| nil (de|
|000002b0| 66 69 6e 65 2d 6b 65 79 | 20 72 6d 61 69 6c 2d 6d |fine-key| rmail-m|
|000002c0| 6f 64 65 2d 6d 61 70 20 | 22 65 22 20 27 72 6d 61 |ode-map |"e" 'rma|
|000002d0| 69 6c 2d 65 78 74 72 61 | 63 74 2d 72 65 6a 65 63 |il-extra|ct-rejec|
|000002e0| 74 65 64 2d 6d 65 73 73 | 61 67 65 29 20 28 64 65 |ted-mess|age) (de|
|000002f0| 66 69 6e 65 2d 6b 65 79 | 20 72 6d 61 69 6c 2d 6d |fine-key| rmail-m|
|00000300| 6f 64 65 2d 6d 61 70 20 | 22 62 22 20 27 72 6d 61 |ode-map |"b" 'rma|
|00000310| 69 6c 2d 62 65 67 69 6e | 6e 69 6e 67 2d 6f 66 2d |il-begin|ning-of-|
|00000320| 6d 65 73 73 61 67 65 29 | 20 28 64 65 66 69 6e 65 |message)| (define|
|00000330| 2d 6b 65 79 20 72 6d 61 | 69 6c 2d 6d 6f 64 65 2d |-key rma|il-mode-|
|00000340| 6d 61 70 20 22 4b 22 20 | 27 72 6d 61 69 6c 2d 65 |map "K" |'rmail-e|
|00000350| 78 65 63 75 74 65 2d 6d | 65 73 73 61 67 65 73 29 |xecute-m|essages)|
|00000360| 29 29 20 72 6d 61 69 6c | 2d 6d 6f 64 65 2d 68 6f |)) rmail|-mode-ho|
|00000370| 6f 6b 5d 20 31 29 0a 23 | 40 32 37 30 20 41 6e 20 |ok] 1).#|@270 An |
|00000380| 61 6c 69 73 74 20 75 73 | 65 64 20 74 6f 20 6b 69 |alist us|ed to ki|
|00000390| 6c 6c 20 72 6d 61 69 6c | 20 6d 65 73 73 61 67 65 |ll rmail| message|
|000003a0| 73 20 62 61 73 65 64 20 | 6f 6e 20 72 65 67 65 78 |s based |on regex|
|000003b0| 20 6d 61 74 63 68 65 73 | 20 74 6f 20 64 69 66 66 | matches| to diff|
|000003c0| 65 72 65 6e 74 20 66 69 | 65 6c 64 73 2e 0a 54 68 |erent fi|elds..Th|
|000003d0| 65 20 63 61 72 20 6f 66 | 20 65 61 63 68 20 65 6e |e car of| each en|
|000003e0| 74 72 79 20 69 73 20 74 | 68 65 20 6e 61 6d 65 20 |try is t|he name |
|000003f0| 6f 66 20 61 20 6d 61 69 | 6c 20 68 65 61 64 65 72 |of a mai|l header|
|00000400| 2c 20 74 68 65 20 63 64 | 72 20 69 73 20 61 20 70 |, the cd|r is a p|
|00000410| 61 74 74 65 72 6e 2e 0a | 43 61 73 65 20 69 73 20 |attern..|Case is |
|00000420| 6e 6f 74 20 73 69 67 6e | 69 66 69 63 61 6e 74 2e |not sign|ificant.|
|00000430| 29 0a 0a 53 65 65 20 61 | 6c 73 6f 20 74 68 65 20 |)..See a|lso the |
|00000440| 64 6f 63 75 6d 65 6e 74 | 61 74 69 6f 6e 20 66 6f |document|ation fo|
|00000450| 72 20 72 6d 61 69 6c 2d | 6d 61 79 62 65 2d 65 78 |r rmail-|maybe-ex|
|00000460| 65 63 75 74 65 2d 6d 65 | 73 73 61 67 65 20 61 6e |ecute-me|ssage an|
|00000470| 64 0a 72 6d 61 69 6c 2d | 65 78 65 63 75 74 65 2d |d.rmail-|execute-|
|00000480| 6d 65 73 73 61 67 65 73 | 2e 1f 0a 28 64 65 66 76 |messages|...(defv|
|00000490| 61 72 20 72 6d 61 69 6c | 2d 75 73 75 61 6c 2d 73 |ar rmail|-usual-s|
|000004a0| 75 73 70 65 63 74 73 20 | 27 28 28 22 73 75 62 6a |uspects |'(("subj|
|000004b0| 65 63 74 22 20 2e 20 22 | 53 6d 69 74 68 73 6f 6e |ect" . "|Smithson|
|000004c0| 69 61 6e 20 41 73 74 72 | 6f 6e 6f 6d 69 63 61 6c |ian Astr|onomical|
|000004d0| 20 4f 62 73 65 72 76 61 | 74 6f 72 79 22 29 20 28 | Observa|tory") (|
|000004e0| 22 73 75 62 6a 65 63 74 | 22 20 2e 20 22 4d 47 52 |"subject|" . "MGR|
|000004f0| 2c 20 42 65 6c 6c 63 6f | 72 65 20 77 69 6e 64 6f |, Bellco|re windo|
|00000500| 77 20 6d 61 6e 61 67 65 | 72 2c 20 50 61 72 74 22 |w manage|r, Part"|
|00000510| 29 29 20 28 23 24 20 2e | 20 38 39 33 29 29 0a 28 |)) (#$ .| 893)).(|
|00000520| 62 79 74 65 2d 63 6f 64 | 65 20 22 c0 11 c0 87 22 |byte-cod|e "...."|
|00000530| 20 5b 6d 61 79 62 65 2d | 62 6f 6f 6b 2d 73 6f 6d | [maybe-|book-som|
|00000540| 65 2d 73 75 73 70 65 63 | 74 73 20 6b 69 6c 6c 2d |e-suspec|ts kill-|
|00000550| 65 6d 61 63 73 2d 68 6f | 6f 6b 5d 20 31 29 0a 28 |emacs-ho|ok] 1).(|
|00000560| 64 65 66 61 6c 69 61 73 | 20 27 6d 61 79 62 65 2d |defalias| 'maybe-|
|00000570| 62 6f 6f 6b 2d 73 6f 6d | 65 2d 73 75 73 70 65 63 |book-som|e-suspec|
|00000580| 74 73 20 23 5b 6e 69 6c | 20 22 c0 8b 87 22 20 5b |ts #[nil| "..." [|
|00000590| 28 28 62 79 74 65 2d 63 | 6f 64 65 20 22 c0 c1 21 |((byte-c|ode "..!|
|000005a0| 88 65 62 88 c2 c3 21 88 | c4 c5 21 88 c6 c5 21 88 |.eb...!.|..!...!.|
|000005b0| 0e 07 8a c8 70 21 29 6b | 3f ad a7 c9 ca 21 88 cb |....p!)k|?....!..|
|000005c0| 20 88 cc cd 0e 07 5c 22 | 88 ce cf 21 88 d0 d1 21 | .....\"|...!...!|
|000005d0| ad 91 d2 71 88 d3 c5 21 | 88 d4 0e 07 d5 d2 21 5c |...q...!|......!\|
|000005e0| 22 88 d6 20 87 22 20 5b | 66 69 6e 64 2d 66 69 6c |".. ." [|find-fil|
|000005f0| 65 20 22 7e 2f 2e 65 6d | 61 63 73 22 20 72 65 2d |e "~/.em|acs" re-|
|00000600| 73 65 61 72 63 68 2d 66 | 6f 72 77 61 72 64 20 22 |search-f|orward "|
|00000610| 5e 28 64 65 66 76 61 72 | 20 72 6d 61 69 6c 2d 75 |^(defvar| rmail-u|
|00000620| 73 75 61 6c 2d 73 75 73 | 70 65 63 74 73 24 22 20 |sual-sus|pects$" |
|00000630| 64 6f 77 6e 2d 6c 69 73 | 74 20 31 20 62 61 63 6b |down-lis|t 1 back|
|00000640| 77 61 72 64 2d 63 68 61 | 72 20 72 6d 61 69 6c 2d |ward-cha|r rmail-|
|00000650| 75 73 75 61 6c 2d 73 75 | 73 70 65 63 74 73 20 72 |usual-su|spects r|
|00000660| 65 61 64 20 73 77 69 74 | 63 68 2d 74 6f 2d 62 75 |ead swit|ch-to-bu|
|00000670| 66 66 65 72 2d 6f 74 68 | 65 72 2d 77 69 6e 64 6f |ffer-oth|er-windo|
|00000680| 77 20 22 53 55 53 50 45 | 43 54 53 22 20 65 72 61 |w "SUSPE|CTS" era|
|00000690| 73 65 2d 62 75 66 66 65 | 72 20 6d 61 70 63 61 72 |se-buffe|r mapcar|
|000006a0| 20 23 5b 28 78 29 20 22 | c0 09 70 5c 22 87 22 20 | #[(x) "|..p\"." |
|000006b0| 5b 70 72 69 6e 74 20 78 | 5d 20 33 5d 20 73 65 74 |[print x|] 3] set|
|000006c0| 2d 62 75 66 66 65 72 2d | 6d 6f 64 69 66 69 65 64 |-buffer-|modified|
|000006d0| 2d 70 20 6e 69 6c 20 79 | 2d 6f 72 2d 6e 2d 70 20 |-p nil y|-or-n-p |
|000006e0| 22 53 61 76 65 20 74 68 | 65 20 75 73 75 61 6c 20 |"Save th|e usual |
|000006f0| 73 75 73 70 65 63 74 73 | 3f 20 22 20 22 2e 65 6d |suspects|? " ".em|
|00000700| 61 63 73 22 20 6b 69 6c | 6c 2d 73 65 78 70 20 70 |acs" kil|l-sexp p|
|00000710| 72 69 6e 31 20 67 65 74 | 2d 62 75 66 66 65 72 20 |rin1 get|-buffer |
|00000720| 73 61 76 65 2d 62 75 66 | 66 65 72 5d 20 34 29 29 |save-buf|fer] 4))|
|00000730| 5d 20 31 5d 29 0a 23 40 | 32 37 38 20 4b 69 6c 6c |] 1]).#@|278 Kill|
|00000740| 20 74 68 65 20 63 75 72 | 72 65 6e 74 20 6d 65 73 | the cur|rent mes|
|00000750| 73 61 67 65 20 69 66 20 | 69 74 20 6d 61 74 63 68 |sage if |it match|
|00000760| 65 73 20 61 6e 20 65 6e | 74 72 79 20 69 6e 20 53 |es an en|try in S|
|00000770| 55 53 50 45 43 54 53 2e | 0a 53 55 53 50 45 43 54 |USPECTS.|.SUSPECT|
|00000780| 53 20 69 73 20 61 6c 69 | 73 74 20 6f 66 20 74 68 |S is ali|st of th|
|00000790| 65 20 66 6f 72 6d 20 6f | 66 20 72 6d 61 69 6c 2d |e form o|f rmail-|
|000007a0| 75 73 75 61 6c 2d 73 75 | 73 70 65 63 74 73 20 28 |usual-su|spects (|
|000007b0| 77 68 69 63 68 20 73 65 | 65 29 2e 0a 49 66 20 74 |which se|e)..If t|
|000007c0| 68 65 20 63 75 72 72 65 | 6e 74 20 6d 65 73 73 61 |he curre|nt messa|
|000007d0| 67 65 20 63 6f 6e 74 61 | 69 6e 73 20 61 20 6d 61 |ge conta|ins a ma|
|000007e0| 69 6c 20 68 65 61 64 65 | 72 20 74 68 61 74 20 6d |il heade|r that m|
|000007f0| 61 74 63 68 65 73 20 70 | 61 74 74 65 72 6e 2c 0a |atches p|attern,.|
|00000800| 69 74 20 69 73 20 64 65 | 6c 65 74 65 64 2e 0a 0a |it is de|leted...|
|00000810| 54 68 69 73 20 66 75 6e | 63 74 69 6f 6e 20 63 61 |This fun|ction ca|
|00000820| 6e 20 62 65 20 75 73 65 | 64 20 61 73 20 61 20 72 |n be use|d as a r|
|00000830| 6d 61 69 6c 2d 6d 65 73 | 73 61 67 65 2d 66 69 6c |mail-mes|sage-fil|
|00000840| 74 65 72 20 28 77 68 69 | 63 68 20 73 65 65 29 2e |ter (whi|ch see).|
|00000850| 1f 0a 28 64 65 66 61 6c | 69 61 73 20 27 72 6d 61 |..(defal|ias 'rma|
|00000860| 69 6c 2d 6d 61 79 62 65 | 2d 65 78 65 63 75 74 65 |il-maybe|-execute|
|00000870| 2d 6d 65 73 73 61 67 65 | 20 23 5b 28 26 6f 70 74 |-message| #[(&opt|
|00000880| 69 6f 6e 61 6c 20 73 75 | 73 70 65 63 74 73 20 64 |ional su|spects d|
|00000890| 6f 6e 74 2d 6d 6f 76 65 | 29 20 22 08 ac 82 09 10 |ont-move|) ".....|
|000008a0| 08 ad b3 c2 08 40 41 c3 | 08 40 40 21 ae 81 c4 5c |.....@A.|.@@!...\|
|000008b0| 22 ab 9d c5 0e 06 21 ac | 97 c7 c8 0e 06 5c 22 88 |".....!.|.....\".|
|000008c0| 0e 09 ab 85 ca 20 88 aa | 83 cb 20 88 cc 89 10 aa |..... ..|.. .....|
|000008d0| 52 08 41 89 10 ac 4e cc | 87 22 20 5b 73 75 73 70 |R.A...N.|." [susp|
|000008e0| 65 63 74 73 20 72 6d 61 | 69 6c 2d 75 73 75 61 6c |ects rma|il-usual|
|000008f0| 2d 73 75 73 70 65 63 74 | 73 20 73 74 72 69 6e 67 |-suspect|s string|
|00000900| 2d 6d 61 74 63 68 20 6d | 61 69 6c 2d 66 65 74 63 |-match m|ail-fetc|
|00000910| 68 2d 66 69 65 6c 64 20 | 22 24 5e 22 20 72 6d 61 |h-field |"$^" rma|
|00000920| 69 6c 2d 6d 65 73 73 61 | 67 65 2d 64 65 6c 65 74 |il-messa|ge-delet|
|00000930| 65 64 2d 70 20 72 6d 61 | 69 6c 2d 63 75 72 72 65 |ed-p rma|il-curre|
|00000940| 6e 74 2d 6d 65 73 73 61 | 67 65 20 6d 65 73 73 61 |nt-messa|ge messa|
|00000950| 67 65 20 22 44 65 6c 65 | 74 65 64 20 6d 65 73 73 |ge "Dele|ted mess|
|00000960| 61 67 65 20 25 64 22 20 | 64 6f 6e 74 2d 6d 6f 76 |age %d" |dont-mov|
|00000970| 65 20 72 6d 61 69 6c 2d | 64 65 6c 65 74 65 2d 6d |e rmail-|delete-m|
|00000980| 65 73 73 61 67 65 20 72 | 6d 61 69 6c 2d 64 65 6c |essage r|mail-del|
|00000990| 65 74 65 2d 66 6f 72 77 | 61 72 64 20 6e 69 6c 5d |ete-forw|ard nil]|
|000009a0| 20 35 20 28 23 24 20 2e | 20 31 38 35 32 29 5d 29 | 5 (#$ .| 1852)])|
|000009b0| 0a 23 40 31 36 34 20 4b | 69 6c 6c 20 73 6f 6d 65 |.#@164 K|ill some|
|000009c0| 20 72 6d 61 69 6c 20 6d | 65 73 73 61 67 65 73 20 | rmail m|essages |
|000009d0| 62 61 73 65 64 20 6f 6e | 20 72 65 67 65 78 20 6d |based on| regex m|
|000009e0| 61 74 63 68 65 73 20 74 | 6f 20 61 20 6b 69 6c 6c |atches t|o a kill|
|000009f0| 2d 61 6c 69 73 74 2e 0a | 57 69 74 68 20 61 20 70 |-alist..|With a p|
|00000a00| 72 65 66 69 78 20 61 72 | 67 2c 20 75 73 65 20 72 |refix ar|g, use r|
|00000a10| 6d 61 69 6c 2d 75 73 75 | 61 6c 2d 73 75 73 70 65 |mail-usu|al-suspe|
|00000a20| 63 74 73 20 61 73 20 74 | 68 65 20 6b 69 6c 6c 2d |cts as t|he kill-|
|00000a30| 61 6c 69 73 74 2c 20 6f | 74 68 65 72 77 69 73 65 |alist, o|therwise|
|00000a40| 0a 70 72 6f 6d 70 74 20 | 66 6f 72 20 61 20 66 69 |.prompt |for a fi|
|00000a50| 65 6c 64 20 6e 61 6d 65 | 2e 1f 0a 28 64 65 66 61 |eld name|...(defa|
|00000a60| 6c 69 61 73 20 27 72 6d | 61 69 6c 2d 65 78 65 63 |lias 'rm|ail-exec|
|00000a70| 75 74 65 2d 6d 65 73 73 | 61 67 65 73 20 23 5b 28 |ute-mess|ages #[(|
|00000a80| 72 6f 75 6e 64 2d 75 70 | 2d 74 68 65 2d 75 73 75 |round-up|-the-usu|
|00000a90| 61 6c 2d 73 75 73 70 65 | 63 74 73 29 20 22 08 c1 |al-suspe|cts) "..|
|00000aa0| 89 1a 1b 1c 0d ab 85 0e | 06 13 aa b6 c7 c8 c9 5c |........|.......\|
|00000ab0| 22 1e 5c 6e cb cc 0e 5c | 6e 21 21 ae 81 cd 1e 0e |".\n...\|n!!.....|
|00000ac0| cf d0 0e 5c 6e 0e 0e 23 | 1e 11 d2 0e 11 0e 0e 5c |...\n..#|.......\|
|00000ad0| 22 1e 13 0e 5c 6e 0e 13 | 42 43 13 d4 d5 21 ab 87 |"...\n..|BC...!..|
|00000ae0| d6 0b 0e 06 5c 22 16 06 | 2c 5c 6e ac 95 d7 0b d8 |....\"..|,\n.....|
|00000af0| 5c 22 88 0b 3b ab 85 d9 | 89 12 aa 70 da db 21 89 |\"..;...|...p..!.|
|00000b00| 12 ab 6b dc 0c 21 88 dd | 08 21 ab 84 da db 21 88 |..k..!..|.!....!.|
|00000b10| dd 08 21 ad 83 de db 21 | 2b 87 22 20 5b 72 6d 61 |..!....!|+." [rma|
|00000b20| 69 6c 2d 63 75 72 72 65 | 6e 74 2d 6d 65 73 73 61 |il-curre|nt-messa|
|00000b30| 67 65 20 6e 69 6c 20 63 | 75 66 66 65 64 2d 61 6c |ge nil c|uffed-al|
|00000b40| 6c 2d 73 75 73 70 65 63 | 74 73 20 61 6c 6c 65 67 |l-suspec|ts alleg|
|00000b50| 65 64 2d 70 65 72 70 65 | 74 72 61 74 6f 72 20 73 |ed-perpe|trator s|
|00000b60| 63 65 6e 65 2d 6f 66 2d | 74 68 65 2d 63 72 69 6d |cene-of-|the-crim|
|00000b70| 65 20 72 6f 75 6e 64 2d | 75 70 2d 74 68 65 2d 75 |e round-|up-the-u|
|00000b80| 73 75 61 6c 2d 73 75 73 | 70 65 63 74 73 20 72 6d |sual-sus|pects rm|
|00000b90| 61 69 6c 2d 75 73 75 61 | 6c 2d 73 75 73 70 65 63 |ail-usua|l-suspec|
|00000ba0| 74 73 20 72 6d 61 69 6c | 2d 67 65 74 2d 63 75 72 |ts rmail|-get-cur|
|00000bb0| 72 65 6e 74 2d 68 65 61 | 64 65 72 20 22 4b 69 6c |rent-hea|der "Kil|
|00000bc0| 6c 20 77 68 61 74 20 66 | 69 65 6c 64 3f 20 28 64 |l what f|ield? (d|
|00000bd0| 65 66 61 75 6c 74 20 53 | 75 62 6a 65 63 74 29 20 |efault S|ubject) |
|00000be0| 22 20 22 53 75 62 6a 65 | 63 74 22 20 77 65 61 70 |" "Subje|ct" weap|
|00000bf0| 6f 6e 20 72 65 67 65 78 | 70 2d 71 75 6f 74 65 20 |on regex|p-quote |
|00000c00| 6d 61 69 6c 2d 66 65 74 | 63 68 2d 66 69 65 6c 64 |mail-fet|ch-field|
|00000c10| 20 22 73 6f 6d 65 20 72 | 65 67 65 78 22 20 64 65 | "some r|egex" de|
|00000c20| 66 61 75 6c 74 2d 64 65 | 73 63 72 69 70 74 69 6f |fault-de|scriptio|
|00000c30| 6e 20 66 6f 72 6d 61 74 | 20 22 4b 69 6c 6c 20 6d |n format| "Kill m|
|00000c40| 65 73 73 61 67 65 73 20 | 68 61 76 69 6e 67 20 61 |essages |having a|
|00000c50| 20 5c 22 25 73 5c 22 20 | 66 69 65 6c 64 20 6d 61 | \"%s\" |field ma|
|00000c60| 74 63 68 69 6e 67 3f 20 | 28 64 65 66 61 75 6c 74 |tching? |(default|
|00000c70| 20 25 73 29 20 22 20 6d | 6f 73 74 2d 77 61 6e 74 | %s) " m|ost-want|
|00000c80| 65 64 2d 6e 6f 74 69 63 | 65 20 72 65 61 64 2d 73 |ed-notic|e read-s|
|00000c90| 74 72 69 6e 67 2d 77 69 | 74 68 2d 64 65 66 61 75 |tring-wi|th-defau|
|00000ca0| 6c 74 20 73 75 73 70 65 | 63 74 2d 64 65 73 63 72 |lt suspe|ct-descr|
|00000cb0| 69 70 74 69 6f 6e 20 79 | 2d 6f 72 2d 6e 2d 70 20 |iption y|-or-n-p |
|00000cc0| 22 41 64 64 20 69 74 20 | 74 6f 20 72 6d 61 69 6c |"Add it |to rmail|
|00000cd0| 2d 75 73 75 61 6c 2d 73 | 75 73 70 65 63 74 73 3f |-usual-s|uspects?|
|00000ce0| 20 22 20 61 70 70 65 6e | 64 20 72 6d 61 69 6c 2d | " appen|d rmail-|
|00000cf0| 6d 61 79 62 65 2d 65 78 | 65 63 75 74 65 2d 6d 65 |maybe-ex|ecute-me|
|00000d00| 73 73 61 67 65 20 64 6f | 6e 74 2d 6d 6f 76 65 20 |ssage do|nt-move |
|00000d10| 74 20 72 6d 61 69 6c 2d | 6e 65 78 74 2d 75 6e 64 |t rmail-|next-und|
|00000d20| 65 6c 65 74 65 64 2d 6d | 65 73 73 61 67 65 20 31 |eleted-m|essage 1|
|00000d30| 20 72 6d 61 69 6c 2d 73 | 68 6f 77 2d 6d 65 73 73 | rmail-s|how-mess|
|00000d40| 61 67 65 20 72 6d 61 69 | 6c 2d 6d 65 73 73 61 67 |age rmai|l-messag|
|00000d50| 65 2d 64 65 6c 65 74 65 | 64 2d 70 20 72 6d 61 69 |e-delete|d-p rmai|
|00000d60| 6c 2d 70 72 65 76 69 6f | 75 73 2d 75 6e 64 65 6c |l-previo|us-undel|
|00000d70| 65 74 65 64 2d 6d 65 73 | 73 61 67 65 5d 20 35 20 |eted-mes|sage] 5 |
|00000d80| 28 23 24 20 2e 20 32 34 | 38 37 29 20 22 50 22 5d |(#$ . 24|87) "P"]|
|00000d90| 29 0a 28 64 65 66 61 6c | 69 61 73 20 27 72 6d 61 |).(defal|ias 'rma|
|00000da0| 69 6c 2d 67 65 74 2d 63 | 75 72 72 65 6e 74 2d 68 |il-get-c|urrent-h|
|00000db0| 65 61 64 65 72 20 23 5b | 28 70 72 6f 6d 70 74 20 |eader #[|(prompt |
|00000dc0| 64 65 66 61 75 6c 74 29 | 20 22 8a c0 7f 88 60 19 |default)| "....`.|
|00000dd0| c2 79 88 c3 c4 09 c5 23 | ab 87 c6 94 c6 95 7b aa |.y.....#|......{.|
|00000de0| 86 c7 0e 08 0e 09 5c 22 | 2a 87 22 20 5b 6e 69 6c |......\"|*." [nil|
|00000df0| 20 65 6e 64 20 30 20 72 | 65 2d 73 65 61 72 63 68 | end 0 r|e-search|
|00000e00| 2d 66 6f 72 77 61 72 64 | 20 22 5e 5c 5c 28 5b 5e |-forward| "^\\([^|
|00000e10| 20 09 5d 2a 5c 5c 29 3a | 22 20 74 20 31 20 72 65 | .]*\\):|" t 1 re|
|00000e20| 61 64 2d 73 74 72 69 6e | 67 2d 77 69 74 68 2d 64 |ad-strin|g-with-d|
|00000e30| 65 66 61 75 6c 74 20 70 | 72 6f 6d 70 74 20 64 65 |efault p|rompt de|
|00000e40| 66 61 75 6c 74 5d 20 34 | 5d 29 0a 28 64 65 66 61 |fault] 4|]).(defa|
|00000e50| 6c 69 61 73 20 27 72 65 | 61 64 2d 73 74 72 69 6e |lias 're|ad-strin|
|00000e60| 67 2d 77 69 74 68 2d 64 | 65 66 61 75 6c 74 20 23 |g-with-d|efault #|
|00000e70| 5b 28 70 72 6f 6d 70 74 | 20 64 65 66 61 75 6c 74 |[(prompt| default|
|00000e80| 29 20 22 c0 09 21 89 1a | c3 98 ab 83 0c aa 81 5c |) "..!..|.......\|
|00000e90| 6e 29 87 22 20 5b 72 65 | 61 64 2d 73 74 72 69 6e |n)." [re|ad-strin|
|00000ea0| 67 20 70 72 6f 6d 70 74 | 20 73 20 22 22 20 64 65 |g prompt| s "" de|
|00000eb0| 66 61 75 6c 74 5d 20 33 | 5d 29 0a 28 70 72 6f 76 |fault] 3|]).(prov|
|00000ec0| 69 64 65 20 27 72 6d 61 | 69 6c 2d 6b 69 6c 6c 29 |ide 'rma|il-kill)|
|00000ed0| 0a | |. | |
+--------+-------------------------+-------------------------+--------+--------+
